home *** CD-ROM | disk | FTP | other *** search
/ Software USA 5 #2 / Software USA Volume 5.02.iso / mac / children / 2 / Frog Hop Game / Frog Hop Game.dxr / 00083_getspecial.ls < prev    next >
Encoding:
Text File  |  1998-09-21  |  260 b   |  12 lines
  1. on getspecial
  2.   global grid, GRIDNUM, specialgrid, flagg
  3.   set flagg to 0
  4.   repeat while flagg = 0
  5.     set NUM to random(25)
  6.     if (getAt(GRIDNUM, NUM) = 10) and (grid <> NUM) then
  7.       set specialgrid to NUM
  8.       set flagg to 1
  9.     end if
  10.   end repeat
  11. end
  12.